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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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FFFFFFFFFF oc0000 RRRRRRRR RRRRRRRR EEEEEEEEEE ARAAAA DDDDDDDD 
FFFFFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD 
FF 00 00 RR RR RR RR EE Ab AA DD DD 
FF 00 OO RR RR RR RR EE AL AA 0D 

FF 00 00 RR RR RR RR EE AA AA 0D 

FF 00 OO RR RR RR RR EE an AA 0D 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD 
FFFFFFFF 00 O00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD 

FF 00 OO RR RR RR_ RR EE AAAAAAAAAA DD 

FF 00 OO RR RR RR RR EE AAAAAAAAAA DD 

FF 00 00 RR RR RR RR EE AR AA 0D 

FF 00 00 RR R RR RR EE AA AA DD DD 
FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD 
FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD 
LL IIIT] SSSSSSSS 

LL 11111 SSSSSSSS 

LL I] $$ 

LL I] SS 

LL I] S$ 

LL I] $s 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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~TITLE FORSR AD. IF - entry point for FORTRAN READ INTE RWAL FORMATTED 
-IDENT /1-01 e: FORREADIF.MAR Edit: JAW1012 


—MARAAARARAARAAASALASAAASESALALELASSASES ESE SELES SERS REE REESE EERE RESET REESE ESSE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


mem <wm 


® 
® 
® 
® 
® 
* 
® 
USION OF T T : F OTHER: 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
2 
* 
® 
® 
* 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH . 


LIT 
S NOT SUPPLIED BY DIGITAL 


* . . . * . . . 
* * * * * ae * a * oe * * * ah * a * oa * * 
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: FACILITY: FORTRAN Support Library - user callable 
; ABSTRACT: 
This module contains the entry point for the FORTRAN 
READ INTERNAL FORMATTED I/0 statement. It is simply 

a call to FORS$IO_ BEG with bits in RO which describe the 
nepenstar List. FORSS$IO_BEG interprets the parameters. 


; MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSREAD_IF 

. MASK FORSS$IO BEG 
BRW FORSREAD_IF +2 

This puts the correct mask in entry vector, that is FORS$IO_BEG entry mask. 
Furthermore this module must only use RO and R 

since any other register might not be in the entry mask for FORS$$IO_BEG. 
; ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
- Hastings, 29-July-78 
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FORRTL.SRCJFORREADIF .MAR; 1 (1) 


me 
FORSREAD_IF - entry Pe point for FORTRAN READ gine 5-SEP ~138¢ $3: 26:28 AX/VMS Macro V04-00 Page g 
1-012 HISTOR Detailed Current Edit History 6-SEP 59:03 (CFORRTL.SRCJFORREADIF .MAR; 1 (2) 
2090 ; -SBTTL HISTORY ; Detailed Current Edit History 
0 8 
$009 59 ; Edit History for Version 1 
0000 60 ; 
0000 61 ; 0-10 = Add comment about vectors. TNH 23-June-78 
0000 6¢ ; O-12 = Pass arg in RO, not ROR, add comments. TNH 29-July-78 
444 63 ; 1-001 - aoe version number and copyright notice. JBS 16-NOV-78 
0000 64 ; 1-208 - Change statement type symbols to be LUB$SK... JBS 07-DEC-78 
0000 65 ; 1-003 - Change. pratenens S type symbols to be S88K; 2° JBS 11-DEC-78 
0000 66 ; 1-004 = Add the directive. JBS 22- 8 
0000 67 ; 1-005 - 4 FOR RSREAD. ore SFORSREAD. KO FORSREWRITE SF, FORSREWRITE_SO, 
0000 68 ; FORSREAD_IF,~ FORSREAD 10, “FORS SWRITE_IF, FORSWRITE_ 10, 
0000 69 ; FORSREAD_ KU FORSREURITE E_SU, 
0000 70; SBL 2-May-1979 
0000 71 ; 1-006 - Remove - l entry pertose that need object time formatting, 
0000 72 ; putting them in FORSENTRY_OBJ so that we can arrange to 
0000 73; oad the foraet compiler Only when it is needed. 
0000 74; JBS 26-JUN-1979 
0000 75 ; 1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
0000 76 ; for it and FOR$$IO ae 8 see how much 1/0 laietation time 
0000 (77: improves. JBS 02-JUL-197 
0000 78 ; 1-008 - Do lLikewuse for FORSREAD. BU and FORSWRITE_DU. = ee -1979 
0000 79 ; 1-009 - houses all entry points éxcept FORSREAD_IF; each 
0000 80 ; others gets its own module so we can silectively’ Lo be, 
0000 Bis the necessary UDF and REC modules. JBS 09-JUL-1979 
0000 82 ; 1-010 - Correct a typo that caused a data truncation error. JBS 10-JUL-1979 
0000 83 ; 1-011 - New parameter format for FORSS$IO_BEG. SBL 5-Dec -19 
0000 84 ; 1-012 - Change BRW FORS$I0_BEG+2 to JMP G*FORSSIO “BEG+?. JAW 21-Feb-1981 
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1-012 DECLARATIONS g-SEp-1 984 0:39:03 FORRTL.SRCJFORREADIF .MAR; 1 . 3) 1: 

. ~SBTTL DECLARATIONS 

0 H 

3 ; INCLUDE FILES: 

0 . 

0 SFORPAR 3; Define inter-module FORTRAN symbols 

SISBDEF ; Define statement type symbols 


: EXTERNAL SYMBOLS: 
~DSABL GBi ; Declare all external symbols. 
: -EXTRN FORS$IO_BEG ; common I/0 statement processing 
: The ge references are to make sure the necessary UDF and REC 
; modules are loaded. These are the routines which are called through 
3; the dispatch tables in FORSSDISPAT. 
-EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RFO 
-EXTRN FORSSREC-RIFO, FORSSREC_RIF1, FORSSREC_RIF9 
: MACROS: 
; NONE 
> PSECT DECLARATIONS: 


0000 


-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 


+ EQUATED SYMBOLS: 


SSSSSSSSSssssssssssssssssssssssssssssss 


COOCCOCOCOCOCOCOSCOSCOCOOOCOOCOOCSCOoOOSoOoOoOOoOSo 
SOOCCOCCOCOCOCOSCOOOC COSCO COSOOCOOOOOCOOOOOOCOOOCOSoOoOoOo 


pole em la lela lolol alelolololololelelololeololeololelololeleololeleleololelolelolola) 
PIPMINPINININPINININ 2 2 PO PH HF HOODOO OCOCOCOCOCOCOCOWOO OOO OOO OMWMOM0 


DNASE WN (OO DNAWUE WN O OO NAMES WN $C OONAOUE WN OOONOD 


— os 2 — 9 —) — 9 - 2) 2s —s 2s 2s 4 6 a ss ds 


0000 3; OWN STORAGE: 
0000 3 

0000 3 NONE 
0000 3 


ee 
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1-012 FORSREAD_IF = READ INTERNAL formatted 66-SEP-1984 FORRTL. SRC RCI ORREADIF .MAR; 1 (4) 1: 
009 ! 9 -SBTTL FORSREAD_IF = READ INTERNAL formatted 
0 1 ¢ pee 
4 | i ; FUNCTIONAL DESCRIPTION: 
09 155 3 Initialize the FORTRAN I/0 — to perform 
8 : 8 ; a READ INTERNAL formatted 1/0 statement. 
$009 138 ; CALLING SEQUENCE: 
0000 139; 
0000 140 ; CALL FONGRER IF a raybl. -ft.dx, format_adr.mbu.ra 
B88 133 3 C, _adr. end_adr.j.rJJ)~ 
0000 128 ; INPUT PARAMETERS: 
0000 144 ; 
0000 145 ; user_vbl.rt.dx User's string variable 
0000 108 $ format_adr.mbu.ra adr. of cone! led format byte array 
0000 147 ; Cerr_adr.j.r] optional ERR= address 
0000 148 ; Cend_ adr.j.rd optional END= address 
0000 149 ; 
0000 150 ; IMPLICIT INPUTS: 
0000 151; 
0000 136 3 NONE except those used by FORS$$I0_BEG. 
0000 153; 
0000 154 ; OUTPUT PARAMETERS: 
0000 155; 
0000 156 ; NONE 
0000 157; 
0000 158 ; IMPLICIT OUTPUTS: 
0000 159; 
44 199 : NONE except those left by FORS$I0_BEG. 
0000 166 ; COMPLETION CODES: 
0000 163; 
0000 164 ; NONE 
0000 165 ; 
0000 166 ; SIDE EFFECTS: 
0000 167 ; 
0000 168 ; NONE except those of FORS$I0_BEG. 
0000 169 ; 
0000 170 ;-- 
0000 171 
* 0000 Vie FORSREAD_IF: -MASK  FORS$IO_BEG 
0 12 QA BOE 17 Roy 78L #ISBSK_ST TY nf RO ; Statement type 
00000002'GF 17 000 174 G*FOR$S10_BEG > branch past call mask 
000B 175 
000B 176 
0008 177 - END 
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Symbol table FORRTL.SR RCIF ORREADIF .MAR; 1 (4) 
FORSS10_BEG terenere =X = =600 
FORSSREC_RIFO teteeee =X i 
FORSSREC_RIF1 eteeeeee =X 
FORSSREC_RIF9 teeeeeee =X 00 
FORSSUDF _RFO eaneenee =X 8 
FORSSUDF _RF 1 eeeeeeee =X 0 
FORSSUDF _RF9 eeereeee =X 8600 
FORSREAD_ IF 00000000 RG 01 
ISBSK_ST_TY_RIF = 0000001 

¢eaerernanmecae eooae + 

: ,_Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
_ — . 00000000 « 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 
_FORSCODE 00000008 ¢ 11.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG | 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:00.97 
pomnend processing 110 00:00:00.61 00:00:03.61 
125 00:00:01.19 00:00:04.05 
Syabol table sort 0 00:00:00.19 00:00:00.27 
Pass 2 46 00:00:00.46 00:00:01.70 
Symbol table output 3 00:00:00.02 00:00:00.09 
Psect synopsis output 2 00:00:00.01 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 317 00:00:02.57 00:00:10.71 


| 
| 
The working set Limit was 1050 pages. 
6676 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 
There were 20 pages of symbol table space nt ee to hold 187 non-local and 0 Local symbols. 

177 source Lines were read in Pass 1, produci ‘t object records in Pass 
9 pages of virtual memory were used to define 2 macros. | 


eee eee ne ee eee eee eee eo teem} 


Macro Library name Macros defined 
_$255$DUA28: CFORRTL. OBJJFORRTL.MLB;1 2 
“$255$DUA28: (SYSLIBISTARLET.MLB; 2 0 

TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORREADIF /OBJ=OBJ$:FORREADIF MSRC$:FORREADIF /UPDATE=(ENHS:FORREADIF)+LI | 
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